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SEP-19 FAL.SRCJFALLOGGER.MAR; 1 (1) 
-TITLE FALLOGGER = FAL LOGGING ROUTINES 
; fT Gt2868 
0 ¢ t euneaneteeusecorencoecoressesncconecesenececcenecensenseseneczeosecconcocese 
3* t 
$6 5 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
4 8 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
B88 10 :* ALL RIGHTS RESERVED. ‘ 
; e 
9000 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
Be \¢ 3* ONLY IN ACCORDANCE WITH OF SUCH LICENSE AND WITH THE * 
13 ;* INCLUSION OF T BOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
00 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
464 16 :* TRANSFERRED. * 
: 8 
4 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 19 ;* AN HOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT & 
4 y :* CORPORATION. * 
bY ® 
0000 § 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 4 ;* . 
0000 5 ;3* * 
4464 § FRR E AAA AAAREEAAEAAREARAER EAE Kee ee ee 
0000 8° 
0000 9 34+ 
48 3; Facility: FAL (DECnet File Access Listener) 
0000 : ; Abstract: 
0000 : 
44 : ; This module contains FAL logging routines and associated text. 
44 § : Environment: VAX/VMS, user mode 
444 8 > Author: James A. Krycka, Creation Date: 16-JUN-1977 
9000 40 > Modified By: 
9000 4g ; V03-009 JAK0144 JA Krycka 11-APR-1984 
00 43 ; Use local symbols instead of giobal symbols wherever possible. 
888 44 ; Log CPU time with FAL$LOG statistics display and optionaily 
i464 re : display internal counters. 
000 47 ; v03-008 JAK0137 J_A Krycka 12-MAR-1984 
00 48 ; Add FALSPARSE_FAL$LOG routine to parse FAL logging options. 
; 49 ; Make minor changes to FAL logging display. 
0; Add description of FAL$LOG options and use of FALSOUTPUT. 
9 1; Modifications to reflect macro name changes in FALMACROS.MAR, | 
: : V03-007 JAK0136 JA Krycka 7-MAR-1984 
4; Do not terminate FAL on error writing to print file with FAL 
p 5 3 Logging information. 
5 : V03-006 JAKO0107 J A Krycka 30-APR-1983 
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Modified FALSPRINT. FAO to loop on encountering a 
Seca Stream Active error, instead of quitting. 


00 28 ; This fix supersedes v03-002. 
60 ; V03-005 JAKO105 J A Krycka 29-APR-1983 
61 ; Make general enhancements to cm te logging display and log more 
$¢ : performance ie tit information 
64 ; v03-004 KRM0097 alik 06-Apr-1983 
i : Add support for BAP se 0 rename operation. 
89 ; v03-003 KRM0071 Malik 23-Nov-1982 
00 oe : Modify FAL$LOG_ RESNAM to support rename operation. 
09 29 ; v03-002 KRM0062 K Malik 08-0c t-1982 
72: 
mR: 
00 74 3 
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INTRODUCTION TO FAL LOGGING 


The following describes the format and use of the FAL bogging options which 
; are specified via the ti Hae panes FALSLOG and FALSOUTPUT. These are normally 
IN.COM file, but they can be placed in a group or 
; systes logical name table to affect a larger class of remote file accesses. 
FAL$LOG conveys logging and control directives to FAL and FALSOUTPUT is used 
; to specify the name of the log file to create (in place of SYSSOUTPUT). 


NOTE: Use of the logical names FALS$LOG and FALSOUTPUT by FAL is an UNSUPPORTED 
feature intended as a diagnostic, debugging. and performance monitoring 
tool for use by Digit Ll. The format and function of these logical names 
may change at any time, or perhaps not be used in the future. 


NOTE: Logging of information other than file name and statistics (parameter 
bits 0, 1, and 5) can severly reduce data throughput!!! 


SYNTAX RULES 


The primary function of the logical name FAL$LOG is to request the Logging of 
various types of information about the file operations performed by FAL. This 
includes identifying each file accessed, displaying the Data Access Protocol 
(DAP) messages exchanged compys ne data throughput statistics, and Logging 
the Logical Link and mailbox Q10 calls and the pubeoquens delivery of ASTs. 
Logging operations are requested via the parameter bitmask value. A secondary 
use of the logical name is to specify qualifiers that control various aspects 
of FAL's operation such as determining buffer sizes or disabling features. 
Currently, the format of the FAL$LOG options string is: 


CparameterJ(C/qualifier-1,...,qualifier-n] 
where each qualifier is of the form keyword=value (e.g., /BPM=20). 


The parameter and qualifiers are optional. However, the parameter if present 
must precede any qualifiers. In addition, only the first three characters of 
a qualifier keyword are examined to determine a match. Thus, /DISABLE=xx can 
be addreviated to /DIS=xx. Spaces and tabs are ignored and keywords can be 
be entered using either uppercase or lowercase characters. 


PARAMETER VALUES 


The pereneter is a hexadecimal bitmask used to agec ity FAL Logging ort tons. 
If this parameter is non-zero (indicating that FAL logging output will be 
generated), then an attempt is made to translate the logical name SYSSOUTPUT 
prior to opening the log file. if FALSOUTPUT is defined, then its equivalence 
string is used as the file specification of the log file; otherwise logging 
output is directed to SYSSOUTPUT which neraas ty points to the default network 
log file named SYSSLOGIN:NETSERVER.LOG. The bitmask definitions for the 

; parameter are as follows: 


bitO -- enable logging of file name and type of file access requested. 
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bit! -- enable bogging of data throughput and other performance 
statistics. 


bit2 -- enable loggin of individual DAP messages as they are processed 
nput buffer or assembled in the output buffer 

bit3 -- enanre 1one'e6 of DAP message packet and mailbox AST routine 

bit4 == enable Logging of DAP message packet and mailbox Q10 requests. 

bitS -- enable logging of internal counters. 


The following qualifiers are recognized where 'd' denotes a decimal digit and 
*x' denotes a hexadecimal digit: 


/DISABLE=xx (Disable FAL Options) where the bitmask value denotes: 


bitO -- disable DAP Level CRC checksum generation and comparison. 
(Note that CRC checking will be euromectcol by disabled if the 
SOS et tne node does not support DAP Level CRC computation.) 
bit! -- disable DAP message blocking in both directions (i.e., transmit 
each DAP message n a separate QI10 system service call). 
bit2 -- disable RMS multi-block caching to/from disk when block 1/0 
file transfer mode is in effect. This restores the pre-VMS V3.4 
block I/0 processing behavior of FAL where each DAP DATA message 
resulted in one RMS $READ or $WRITE call to be executed. Note 
also that selection of this option elimimates one MOVC3 copy 
of the data in memory at the expense of greatly increasing the 
number of RMS 1/0 operations gerrorges during a file transfer. 
bit3 -- disable poor-man's (or manual) routing (i.e., have FAL reject 
any file specification it receives that contains a node name). 
bits4-7 are undefined. 


/ENABLE=xx (Enable FAL Options) where the bitmask value denotes: 
bits0-7 are undefined. 
/BPM=ddddd (Bytes per Message) this is the maximum number of bytes per DAP 


message to display (used oniy if parameter bit2 is set). The default 
value is 20 bytes per message. 


} 
QUALIFIER VALUES 
| 


/BPL=dd (Bytes per Line) this is the maximum number of bytes per line to 
display when dumping a DAP message (used only if parameter bit2 is set). 
The default value is 20 bytes per Line. 


/RBK_CACHE=ddd (RMS Multi-block Cache Size) this controls the number of disk 
blocks per RMS S$READ or wills call to transfer when block 1/0 file 
transfer mode is selected (if bit2 of the ee option is set, this 
option is ignored). The number can be from 1 to 127. The default is 64. 


/DBS=ddddd (DAP Gutter Size) requests FAL to send this value in the DAP 
Configuration message for the <BUFSIZ> field. 


/SYSTEM ID=xxxx (System ident tt icat ten) requests FAL to send this value in 
the DAP Configuration message for the <FILESYS><OSTYPE> fields (the 
OSTYPE field is the low order byte of the value). 
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3 /VERSION=xxxxxxxx (DAP Version Number) requests FAL to send this value in 
the DAP cent coyres on message for the <DECVER><USRNUM><ECONUM><VERNUM> 
fields (the VERNUM field is the low order byte of the value). 


; /SCl=xxxxxxxx (System Capabilities Part 1) requests FAL to send this value in 
the DAP Configuration message for bits <51-00> of the <SYSCAP> field. 


; /SC2=xxxxxxxx (System Capabilities Part 2) requests FAL to send this value in 
the DAP Configuration message for bits -32> of the <SYSCAP> field. 


Note that any qualifier that cannot be interpreted or that contains an invalid 
; value is ignored and a parse error message is written to the log file. 
; EXAMPLES 


The following DCL commands illustrate how FAL logging options may be setup 
; in one's LOGIN.COM file. 


$ DEFINE FAL$LOG 1 


The above command enables the toggin of file name and type of access in 
; the default network log file NETSERVER.LOG. 


$ DEFINE FAL$LOG 3 
$ DEFINE FALSOUTPUT FAL.LOG 


This requests the Loog ing of file name, type of acesss, and data throughput 
statistics in SYS$LOGIN:FAL.LOG. 


$ DEFINE FAL$LOG ‘'3/RBK_CACHE=16/DBS=1056"' 
$ DEFINE FALSOUTPUT work_disk:CtestingJstatistics.star_to_galaxy 


The above definitions are used to peroer data throughput statistics in the 
specified log file while altering buffer sizes. 


$ DEFINE FAL$LOG ''7/bpm=80 


This definition causes the first 80 bytes of each DAP message to dumped and 
file identification and statistics to be displayed in the log file. 


$ DEFINE FAL$LOG 7_50 
Same as the previous example, except the VMS V3.n parameter format of xx_yyyy 
is used where yyy is the number of bytes per DAP message to display expressed 
as a hexadecimal value. 

$ DEFINE FALSLOG ‘'/DISABLE=8"' 


This disables poor-man's routing which prevents users from using FAL as a 
; pass-through object on this node. 


SDEFINE FALS$LOG 2F 
This enables all FAL logging options excluding qualifier control options. 
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| 
4 -SBTTL DECLARATIONS 
0000 009 ‘3 “PSECT FALSDATA_LOGGER SHR,NOEXE,RD,WRT,QUAD | 
000 31 3 
00 26 ; Include Files: 
000 33 3 
000 54 
0000 55 SDAPHDRDEF ; Define DAP message header | 
0000 256 SDAPACCDEF ; Define DAP Access message 
0000 257 SDAPCTLDEF ; Define DAP Control message 
0000 58 $F ABDEF ; Define File Access Block symbols 
8008 59 $F ALSTBDEF : Define Statistics Block symbols 
00 60 $F ALWRKDEF ; Define FAL Work Area symbols | 
0000 61 SJPIDEF ; Define Job/Process Information symbols 
0000 66 SNAMDEF ; Define Name Block symbols 
0000 6 SRMSDEF ; Define RMS completion codes 
0000 64 
0000 65 ; | 
0000 66 ; Macros: 
0000 267: 
0000 68 ; None 
0000 69 ; 
0000 70 ; Equated Symbols: 
0000 “1 3 
4 og 
0000003D 0000 73 EQUALSIGN = *X3D ; ASCII code for equal sign 
0000002F 0000 74 SLASH = “X2F ; ASCII code for slash 
00000020 0000 275 SPACE = *x20 ; ASCII code for space | 
00000009 0000 276 TAB = “x09 ; ASCII code for horizontal tab 
0000005F 8000 soe UNDERSCORE = “X5F ; ASCII code for underscore 
0000 279 ASSUME FAL$Q_FLG EQ 0 
0000 280 
0000 $e) 3 
0000 § § 3; Own Storage: 
0000 83 ; 
0000 584 | 
0000 er . . 
0000 6 ; Data structures for the print file: 
0000 rs 
0000 88 
44 89 ALIGN LONG ; Required for FABs and RABs | 
000 90 FALSPRTFAB: : ; File Access Block 
i 91 $FAB FAC=PUT- ; Put access 
0 35 OP=SQ0- : Sequential-only access 
0000 9 AT=CR- : Carriage control 
B66 94 FNA=F ALLST_PRINAM- ; File name string address 
0 95 FNS=FALL$S_PRTNAM ; File name string size 
05 39 FALSPRTRAB: : ; Record Access Block 
05 9 $RAB F AB=F ALSPRTF AB- ; Address of associated FAB 
Bpe 38 RBF=0- ; Record buffer address--t.b.s. later 
05 9 RS2=0 ; Record buffer size--t.b.s. later 
0094 00 FAL$GQ_PRTBUF1:: ; Output string descriptor for FAO 
0000009C 0094 1 . 1 ; when called from non-AST-level code 
09C ¢ FAL$GQ_PRTBUF2:: ; Output string descriptor for FAO 
000000A4 44) P 1 3 _when called from AST-level code 
AG 4 FALSGW_PRTLEN1:: ; Formatted message length from FAO 
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000000A8 
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BLK 
ALLST_PRTNAM: 


nn mn 7 


-BLKW 1 
ALSGW_PRTLEN2: 


ASCI 
ALLS$S_PRTNAM=.- 


16-SEP=1 
“SEP=1 


\SYSSOUTPUT\ 
FALL$T_PRTNAM 


; Time related storage: 


. ALIGN 
FAL$GQ_TIMEO: : 


FAL$GQ_TIME1:: 
.BLKQ 


LONG 


1 


-ALIGN LONG 
FALSGETJPI_LSTO:: 

-WORD 4 

-WORD JPIS_CPUTIM 

LONG FALLSL_CPUTIMO 

«LONG 0 

WORD 4 

-WORD JPI$_BUF 

-LONG FALLSL_BUFIOO 

-LONG 0 

WORD 4 

-WORD JPI$_DIRIO 

-LONG FALLSL_DIRIOO 

-LONG 0 

-LONG 0 
FALSGETJPI_LST1:: 

WORD 4 

-WORD JPIS_CPUTIM 

-LONG FALLSL_CPUTIM1 

LONG 0 

-WORD 4 

-WORD JPI$_BUFIO 

LONG FALLSL_BUFIO1 

- LON 0 

WORD 4 

-WORD JPI$_DIRIO 

-LONG FALLSL_DIRIO1 

«LONG 0 

WORD 4 

-WORD JPI$_WSPEAK 

LONG FALLSL_WSPEAK 

- LONG 8 

. LONG 


FALLS$Q_CPUTIME: 


Be 01:17 
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Formatted message length from FAO 


Print device name 
Print device name Length 


; Required for FABs and RABs 
; Time of Link connect 


; Time of Link disconnect 


; Start of parameter block 

; Length of buffer 

; Type of info to return 

; Address of buffer 

; Don't return Length of value 
; Length of buffer 

; Type of info to return 


Address of buffer 

Don't return Length of value 
Length of buffer 

Type of info to return 
Address of buffer 

Don't return length of value 
End of parameter block 


Address of buffer 

Don't return Length of value 
Length of buffer 

Type of info to return 
Address of buffer 

Don't return Length of value 
Length of buffer 

Type of info to return 
Address of buffer 


Don't return Length of value 
End of parameter block 


Total CPU time in delta format 


Page 
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1 66 ; (overlays next two longwords) 
1 FALLSL_CPUTIMO: ; Accumulated CPU time in 10 millisecond 
00000124 01 64 -BLKL. 1 ; _units is returned here 
124 65 FALLSL_CPUTIM1: 3; Accumulated CPU time in 10 millisecond 
00000128 0124 96 -BLK 1 ; units is returned here 
1 § 67 FALLS$L_BUFIOO: ; Accumulated buffered 1/0 operations 
0000012C 01 08 -BLK 1 ; count is returned here 
12C 8 FALLSL_BUFIO1: ; Accumulated buffered 1/0 operations 
00000130 01 0 -BLK 1 ; count is returned here 
1 71 FALLSL_DIRIOO: ; Accumulated direct I/0 operations 
00000134 01 ie -BLK 1 ; count is returned here 
4 4 73 FALLSL_DIRIO1: ; Accumulated direct 1/0 operations | 
00000138 4 4 fe jain win 1 ; pcan tp returnees here 
: ; Peak working set size 
0000013¢ 0138 76 “ .BLKL 1 3 ; 
Osc 377 | 
b13¢ A: ! Flags t trol Loggi intout 
; Flags to control Logging printout: 
013¢ 80 ; wis | 
013C 81 | 
013¢ Hf FALL$W_PERMSG: ; Maximum # bytes per message to log 
00000014 013¢ 38 .LONG FALSK_DFLT_BPM ; Default value 
0140 384 FALLS$W_PERLINE: ; Maximum # bytes per Line to log 
00000014 0140 385 -LONG FALSK_DFLT_BPL ; Default value | 
0144 386 | 
0144 of 3 | 
0144 88 ; Miscellaneous counter storage: 
0144 89 ; | 
0144 90 
0144 91 FALSGL_RECVWAIT:: ; Receive Q10 wait count 
00000000 0144 38 -LON 0 : Initialize to zero 
0148 93 FALSGL_XMITWAIT:: ; Transmit Q10 wait count 
00000000 0148 94 - LON 0 :; Initialize to zero 
g14c 95 FALSGL_READWAIT:: > RMS FTM READ wait count | 
00000000 13k 96 .LON 0 ; Initialize to zero 
015 97 FALSGL_WRITWAIT:: ; RMS FIM WRITE wait count | 
00000000 0150 $05 . 0 : Initialize to zero 
0154 99 FALSGL_COUNTER1:: ; Miscellaneous counter 1 
00000000 0154 400 - LON 0 : Initialize to zero 
8128 401 FALSGL_COUNTER2:: ; Miscellaneous counter 2 
00000000 015 106 -LONG 0 : Initialize to zero 
Q015C 405 FALSGL_COUNTERS:: ; Miscellaneous counter 3 
00000000 015C 404 - LON 0 : Initialize to zero 
8168 $8? FALSGL_COUNTERG: : ; Miscellaneous counter 4 
00000000 016 4 $ -LONG 0 : Initialize to zero 
0164 40 
164 $38 3 : 
164 409 ; FAO related descriptor blocks with text: 
164 410; 
164 411 . 
164 rit FALL$Q_MBXNAM: ; Name of associated mailbox 
\¢6 41 SQBLOCK TEXT=<<_!AC!UW:>> 
174 414 FAL$GQ_UIC:: ; File owner UIC string 
174 8415 SQBLOCK TEXT=<<C!30W, '!30W)>> 
187 ois FAL$GQ_CALLER:: ; Requestor ID message | 
187 = 41 SQBLOCK TEXT=<!/!56#=!/- | 
187 418 <FAL !AC started execution on !232D!/>- 
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187 419 < with SYS$NET = 'AS and!/>- 
} f ° 9 < with FAL$LOG = !AS!/>- 
7G OOS § FAL$GQ _PARSERR: : se error messa age 
1 4 LOCK “TEXT=<ceeeeeee ERROR parsing. FALSLOG COMMAND *eeeeee!/>> 
424 FAL$GQ "HEADER: 5 ; Header Line for DAP message logging 
425 SQBLOCK TEXT=<- 
: § . <For DAP message dump read byte stream from right to left!/>- 
6 428 FALSGQ_LINKUP: : ; Link established es peagage 
$2 429 LOCK TEXT= <<Logical Link was established on 
9 430 PLE ; Requested file oe poeunes 
95 43) QBLOCK TEXT=<- 
95 4 § <Requested file access operation: !AC!/>- 
8 3 2 ? <Specified file: !AS>- 
0206 435 FALL$Q _REQNAM2: ; Requested new file name message 
0206 4 § OCK TEXT=<<Change name to: !AS>> 
Q2F1 437 FALLS$Q_RESNAM: : Resultant file name message 
O2F1 438 OCK TEXT=<<Resultant file: !AD>> 
030C 439 FALSGQ_STATUS:: Status code message 
030C 440 OCK TEXT=<<DAP status code of 'XW generated>> 
0334 441 FALLS$Q_CLOSE: ; File closed message 
0334 44 SQBLOCK TEXT=<<File access was terminated with !AC set on close>> 
036C 443 FALSGQ_MBXMSG:: Mailbox message type 
bae6 444 S$QBLOCK TEXT=<<Mailbox message type 'XW received>> 
039 445 FAL$GQ_LINKDOWN:: Link terminated esgsage 
0395 44 OCK TEXT= <<'/Logical Link was terminated on  !23%D>> 
03C5 447 FALLS$Q_CONNTIME: ; Link connect time message 
03¢5 448 SQBLOCK TEXT=<!/- 
03¢5 449 <Total connect time for logical Link was !%D!/>- 
O3Ce $29 . <Total CPU time used for connection was !%D>- 
0427 $36 FALL$Q_STAT1: ; Statistics message part 1 
0427 45 SQBLOCK TEXT=<!/- 
0427 454 <File Access Statistics for RECV-Side XMIT-Side Composite! />- 
0427 455 <126t- !Gae Gee Gre! />- 
0427 $26 <# DAP Message Q10 Calls (10UL) !/>= 
Be 4 $3f <# DAP Messages Exchanged !3(10UL)>- 
> 
04C7 459 FALLS$Q_STAT2: ; Statistics message part 2 
04C7 460 SQBLOCK TEXT=<- 
04C7 461 <# User Records/Blocks '3(10UL) !/>- 
4C7 186 <# Bytes of User Data '3(10UL) !/>= 
rth rhe a <# Bytes in DAP Layer '3(10UL)>- 
539 465 FALL$Q_STATS: ; Statistics message part 3 
539 £66 SQBLOCK TEXT=<- 
539 46 <User Data Throughput (bps) !3(10UL)!/>- 
2 4 $68 x <DAP Layer Throughput (bps) !3(10UL)>- 
587 29 FALLS$Q_STAT4: ; Statistics message part 4 
587 8471 SQBLOCK TEXT=<- 
: 4 af <Average Record/Block Size !3(10UL)>- 
> 
581 474 FALLSQ_STATS: ; Statistics message part 5 
581 475 SQBLOCK TEXT=<- 
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' ' i 1 1 ' ' - 
<i user Data, jn DAP Layer !7UB. !1UB%!7UB. !1UBX!7UB. ! 1UB%! /> 


> 

FALL$Q_STAT6: ; Statistics message part 6 
SQBLOCK TEXT=<!/- 

<Boget hater DAP buffer size = !UW bytes!/>- 

<Buffered 1/0 count during connection = !UL!/>- 

<Direct I/0 count eyring connection = !UL!/>= 

<Peak working set size for process = !UL pages>- 


> 
FALS$GQ_INTCNTR:: ; Internal counter information 
SQBLOCK TEXT=<!/- 
<Total eet WANT = !UL and XMIT art pet kept! />- 


WOOO OO OW COOH COOBOD000000 INI 
MEW O OONAUE WN OC OONO 


67 73 6D 69" 


The following counted ASCII strings are arranged in an array where each string 
must begin one quadword apart to accomodate indexed addressing into the array. 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
d 
QO6BE 4 <Total READ_WAIT not kept and WRIT T = !UL!/>- 
O6BE 4 <COUNTER1 ="!UL and COUNTER2 = !ULT/>- 
eet3 : F <COUNTERS = !UL and COUNTERS = !UL>=- 
O968 4935 FALSGQ_EXIT:: ; Exit message 
0768 4 SQBLOCK TEXT=<<!/FAL terminated execution on '2D!/!56e=!/>> 
O79F 495 FALLS$Q_LOGMSG: ; Pr ng DAP message (first Line) 
O79F 4 $ SQBLOCK TEXT=<<!AC !AC !AC!1(6UW) =!4(3XB)>> 
7C 497 FALL$Q_LOGMSG2: ; Print DAP message (continuation Lines) 
07C¢ 498 SQBLOCK TEXT=<<!19*% =-!4(3XB)>> 
07D 499 FALL$Q_LOGQIO: ; Print Q10 message 
07D7 += 500 SQBLOCK TEXT=<<!11%T !AC QI0 issued>> 
girs 501 FALLS$Q_LOGAST: ; Print AST message 
or 208 SQBLOCK TEXT=<<!11%T !AC AST delivered!1(6UW) bytes>> 
O81F 504 ; he 
O81F 505 ; Additional text stored in counted ASCII strings: 
O81F 506 ; 
O81F 507 
081F 508 FALSGT_RCVQIO:: ; Text for LOGAST and LOGQIO 
20 65 76 69 65 63 65 52 6" Bete 509 -ASCIC \Receive \ ; 
0828 510 FALSGT_XMTQIO:: ; Text for LOGAST and LOGQIO 
74 69 6D 73 6E 61 72 54 00" O88 511 eASCIC \Transmit\ : 
0831 216 FALSGT_MBXQI0:: ; Text for LOGAST and LOGQIO 
20 78 6F 62 6C 69 61 4D +f tt 51 eASCIC \Mailbox \ ; 
083A 514 FALSGT_ENCODE:: ; Text for LOGMSG 
2D 2D 2D 3C 6" 8 : 51 eASCIC \<ee-\ : 
Ht 516 FALSGT_DECODE: : ; Text for LOGMSG 
3E 2D 2D 2D 9" 51 eASCIC \n==>\ : 
44 :} FALLST_MSG: ; Text for LOGMSG 
rf 1 eASCIC \msg\ : 


Ouisewn—o OO NO we 


at et aot ak ee 


-ALIGN LONG 
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4 7 FALLSQ_FOP_OPT: ; Text for FOP options on close 
73 74 69 62 20 6F 6E 9" r 25% -ASCIC \no bits\ ; No options selected 
74 69 62 20 4C 50 53 9" 5 529 eASCIC \SPL bit\ ; SPL bit set 
74 69 62 20 46 43 53 " 530 eASCIC \SCF bit\ ; SCF bit set 
4C 50 53 21 46 43 53 " 9 531 eASCIC \SCFISPL\ ; SCF and SPL bits set ==> SCF 
74 69 62 20 54 4C 44 9" 6 532 eASCIC \DLT bit\ ; DLT bit set 
54 4C 44 21 4C 50 53 9" : 533 eASCIC \SPLIDLT\ ; SPL and DLT bits set 
54 4C 44 21 46 43 53 9" gf 534 eASCIC \SCFIOLT\ 3; SCF and DLT bits set 
74 70 6F 20 6C 6C 61 89" +t 535 eASCIC \all opt\ ; ALL three bits set ==> SCF and DLT 
ay 
088 : 8 : The following counted ASCII strings are arranged in an array where each string 
O88 44 3; must begin one octaword apart to accomodate indexed addressing into the array. 
0888 541 ° 
888 306 -ALIGN LONG 
tt 5435 FALLST_ACCFUNC: ; Access function code text 
71 65 72 20 64 69 6C 61 u% $f 2 99" tt 544 eASCIC \Invalid request\ : Invalid function code 
OF 0888 
20 20 65 6C 69 66 20 6E $3 4 sf 20 SH 545 -ASCIC \Open file \ ; OPEN 
F 0898 
65 6C 69 66 20 65 74 61 $3 ae $3 88" OBAB 546 -ASCIC \Create file \ 3; CREATE 
F 8A 
65 6C 69 66 20 65 6D 61 oF $3 36 t O88 547 -ASCIC \Rename fiie \ ; RENAME 
F 088 
20 65 6C 69 66 20 65 73 $i ae $3 q se 548 -ASCIC \Erase file \ ; ERASE 
F c8 
71 65 72 20 64 69 6C 61 u% $f 2 4 4 549 -ASCIC \Invalid request\ ; Reserved 
F 08D 
4C 20 79 72 6F 74 63 65 as +4 i ees 550 -ASCIC \Directory List \ 3; DIRECTORY-LIST 
F E 
62 75 73 28 20 65 74 61 $3 te $3 00° are 551 -ASCIC \Create (submit)\ ; SUBMIT 
F F 
75 63 65 78 65 28 20 6E 65 70 4F i" 508 552 -ASCIC \Open (execute) \ ; EXECUTE 
20 29 65 te Bie 
ay 
91 55 ; The following counted ASCII strings are arranged in an array where each string 
4) 28 3 must begin one longword apart to accomodate indexed addressing into the array. 


<7 
<> 


‘ES aga | | 
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91 
31 H FALLSL mécTvee =e DAP type text 
af : : message e te 
3F SF SF 9" 4 61 eASCIC \2727\ 3 Unknown messene type 
46 4E 43 " 44 562 eASCIC \CNF\ ; Configuration message | 
54 54 41 :" 4 6 563 eASCIC \ATT\ ; Attributes message 
43 43 41 00° 2 564 eASCIC \ACC\ ; Access message 
4C 54 43 00° 2 § 565 eASCIC \CTL\ ; Control message 
4E 4F 43 ¢ 3 : 566 eASCIC \CON\ ; Continue Transfer message 
4B 43 41 09° 03 8 567 eASCIC \ACK\ ; Acknowledge messasge 
50 4D 43 bg. 0934 568 eASCIC \CMP\ ; Access Complete message 
54 41 44 09° bare 569 eASCIC \DAT\ ; Data message 
53 54 53 6g. 093¢ 570 eASCIC \STS\ ; Status message 
59 45 4B 6g" Beep 571 eASCIC \KEY\ 3; Key Definition message 
4C 4C 41 bg. Bote 572 eASCIC \ALL\ ; Allocation message 
4D 55 53 09° beck 573 -ASCIC \SUM\ ; Summary message 
4D 49 54 69" a34¢ 574 eASCIC \TIM\ ; Date and Time message 
4F 52 50 8 , Baap 575 eASCIC \PRO\ ; Protection messsage 
4D 41 4E 8 . 0384 576 eASCIC \NAM\ ; Name message 
95 577 
095 78 H 
095 79 ; The following counted ASCII strings are arranged in an array where each string 
$3 2$0 ; must begin one longword apart to accomodate indexed addressing into the array. 
9 e 
95 : -ALIGN LONG 
95 4 FALLSL_ACCFUNC: ; Access function code text 
3F 3F 3F 9" 2 5 eASCIC \272\ 3 Unknown function code 
4E 50 4F 4 et 586 eASCIC \OPN\ ; OPEN 
45 52 43 00° $60 587 eASCIC \CRE\ ; CREATE 
4E 45 52 00° 44 588 eASCIC \REN\ ; RENAME 
41 52 45 00° Bee 589 eASCIC \ERA\ ; ERASE 
76 73 72 00° 96c 590 eASCIC \rsv\ ; Reserved 
bg eASCIC \DIR\ ; DIRECTORY-LIST | 
| 
| 


42 
as 


3F 
54 
4E 
4a 
54 
4C 
57 
55 
44 
4C 
45 
42 
55 
56 
44 
45 
50 
46 
42 
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46 53 
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Doww 
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eASCIC \SUB\ 
»ASCIC \EXEN 
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; SUBMIT 

; EXECUTE 


The following counted ASCII strings are arranged in an orrey where each string 
n 


3 must begin one longword apart to accomodate indexed address 


FALLSL_C 


CTLFUNC_ 


LONG 
\2277\ 
eASCIC \GET\ 
-ASCIC \CON\ 
»ASCIC \UPD\ 
eASCIC \PUT\ 
eASCIC \DEL\ 
-ASCIC \REW\ 
eASCIC \TRUN 
-ASCIC \MOD\ 
eASCIC \REL\ 
eASCIC \FRE\ 
-ASCIC \XTB\ 
sASCIC \FLUN 
eASCIC \NXV\ 
»ASCIC \FND\ 
eASCIC \XTEN 
eASCIC \DSP\ 
»ASCIC \SPF\ 
eASCIC \SFB\ 


ALIGN 
TLFUNC: 
eASCIC 


ALT_DEF=18 


»ASCIC \REA\ 


g into the array. 


Control function code text 
Unknown function code 


; GET or READ 
; CONNECT 

; UPDATE 

; PUT or WRITE 
; DELETE 

; REWIND 

; TRUNCATE 

; MODIFY (reserved) 
; RELEASE 

; FREE 

; EXTEND-BEGIN 


FLUSH 
NEXT VOLUME (reserved) 


; FIND 


EXTEND-END 


; DISPLAY 
; SPACE FORWARD 
; SPACE BACKWARD 


Add strings for new codes here and 
update the following constant 
Constant to add to function code value 
to index into alternate definitions 
(for GET/READ = 1 and PUT/WRITE = 4) 
READ (redefiniton of GET code) 


eee ee 


FAL LOGBER 
v04-000 


GE 4F 43 
44 50 55 
54 52 57 

0 


3F 3F SF 6" 
0 
59 52 54 69" 
52 48 53 00° 
4F 42 41 8 ' 
53 45 52 00° 
03 


3F 3F 3F 00° 
53 4C 43 00° 


0000000 
50 53 52 06° 


54 53 52 09° 
43 53 44 00° 
46 4B 53 00' 
42 48 43 00° 
45 48 43 00° 
52 45 54 09° 
0 


DOOOooooooooo 
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627 »ASCIC \CON\ ; CONNECT 

628 sASCIC \UPD\ ; UPDATE 

629 eASCIC \WRT\ ; WRITE (redefiniton of PUT code) 

eat 

6 ¢ : The following counted ASCII strings are arranged in an array where each string 

° H ; must begin one longword apart to accomodate indexed addressing into the array. 

635 * 

6 8 -ALIGN LONG 

637 FALLSL_CONFUNC: ; Continue Transfer function code text 

638 eASCIC \277\ ; Unknown function code 

639 sASCIC \TRY\ 3; TRY AGAIN 

640 eASCIC \SKR\ 3; SKIP to next record 

641 eASCIC \ABO\ ; ABORT 

642 «ASCIC \RES\ ; RESUME 

ede 

645 ; The following counted ASCII strings are arranged in an ervey where each string 

o78 ; must begin one longword apart to accomodate indexed addressing into the array. 

648 : 

49 -ALIGN LONG 

650 FALLSL_CMPFUNC: 3; Access Complete function code text 

651 eASCIC \277\ 3; Unknown function code 

652 eASCIC \CLS\ ; CLOSE 

653 RESPONSE_CODE=2 ; Value of response function code 

654 eASCIC \RSP\ ; RESPONSE 

655 eASCIC \RST\ ; RESET 

656 -ASCIC \DSC\ ; DISCONNECT 

657 eASCIC \SKF\ ; SKIP to next file 

658 eASCIC \CHB\ ; CHANGE-BEGIN 

659 eASCIC \CHE\ ; CHANGE-END 

660 eASCIC \TER\ ; TERMINATE operation 
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$LOG_STRING 
N 


$338 nue Macro V04-00 
FAL$LO 
RD ,NOWRT ,BYTE 


bea ty iy a er parses the ogutvatence string from the translation 


in the FAL work area and/or global 


storage depending on the options specified in the string. 


p++ 

: Functional Description: 

3 of and stores the results 

Calling Sequence: 

BSBW —- FALSPARSE_FAL$LOG 

Input Parameters: 

None 

; Implicit Inputs: 

FAL$Q_FALLOG 

Output Parameters: 

RO-R6 Destroyed 

Implicit Outputs: 

FALSV_PARSE_ERR, FALS$V_DBS, FALSV_ 

Completion Codes: 

None 

Side Effects: 

None 

FALSPARSE_FAL$LOG:: : 
Bova FALSQ_ FALLOG(R8) ,R4 : 
BEQL § PARSE_NEXT : 
MOVL ; 

10$: MOVB (R5)+,R1 : 
CMPB Ss @ SPACE, R1 : 
BEQL : 
CMPB #TAB,R1 3 
BEQL 2 : 
MOVB 1,(R3)+ : 

20$: SOBGTR Ra, 10$ 3 
SUBL3 Fit sa_ senate oR3,° ; 
MOVQ  FALSQ7FALLOG(R8) .R4 ; 


SYS, FALSV_VER, FAL$V_SC1, FAL$V_SC2 


; a | pete 
; 5> = FALSLOG equivalence string 
: Branch if this is a null string 


; Make copy of ete tag address 
; Get next charac 

; Skip over if rag is a space 
; Skip over if this is a tab 


; Move character to buffer 
; Branch if not end-of-str 


Update FAL options string” J reflect 
size of compressed strin 


; <R4,R5> = compressed FALSCoG string 


— 
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C 719 ; Obtain the parameter string or next qualifier string (divided into keyword 
C 720 ; and value substrings). 
£ 
os : PARSE _NEXT: 3; Parse parameter or next qualifier 
54 D5 C 724 TSTL RG 3; Check for end-of-string and branch 
01 12 F 725 BNEQ 10$ ; _if there is more string to parse 
05 00 7 § RSB 3: Exit from routine --------- coccocoocee 
65 2F 91 0031 727 108: CMPB #SLASH, (R5) ; Is this start of a qualifier string? 
9 is 034 7 8 BNEQ 208 ; No, it is the parameter string 
4 0D 036 7 DECL R4 :; Yes, skip over slash by adjusting 
5 6 o38 730 INCL R5 ; _string descriptor 
65 54 F A A 731 208: LOCC #SLASH,R4, (R5) 3: Find of parameter or qualifier str 
52.54 Q C3 03 7 : SUBL3 RO.RG Re ; <R2,R3> = parameter or qualifier desc 
a b? 04 7 MOVL R5,R3 3 string less seagtng slash character 
54 50 D 004 734 MOVQ RO,R4 ; <R4,R5> = rest of string to parse desc 
53 0094 C8 Di 0048 735 CMPL FAL$Q_FALLOG+4(R8),R3  ; Determine if parameter or qualifier 
oF 13 004D t36 BEQL PROCESS_PARAMETER ; Branch if this is the parameter 
63 52 D 3A OO4F 737 LOCC #EQUALSIGN,R2,(R3) ; Determine whether or not keyword has 
2 13 0053 «738 BEQL PROCESS QUALIFIER ; associated value string 
52 0 Cs 0055 739 SUBL2 0,R 3; <R2,R3> = qualifier keyword descriptor 
50 D7 0058 740 ECL ; Skip over equal sign character 
51 06 QOSA 741 INCL R1 3; <RO,R1> = qualifier value descriptor 
23. «11 +=«2005C reg BRB PROCESS_QUALIFIER :; Process qaulifier 
OOSE 74 
OOSE 744; 
ooee oe ; Process the parameter bitmask which specifies FAL logging options. 
OOSE 747 ; Note that the FAL V3.0 format of xx_yyyy is supported for compatibility where 
Baee re ; yyyy is a hexadecimal value for bytes per message to display (now /BPM=ddddd). 
005E 750 ° 
OOSE 751 PROCESS_PARAMETER: ; Process FAL Logging bitmask parameter 
63 52 SF 8F 3A 43 O36 LOCC #UNDERSCORE ,R2, (R3) ; Check for possible underline delimiter 
OF 13 006 75 L 0$ ; Branch if no underline character found 
52 50 Cs 0065 754 SUBL2 R0O,R2 3 <R2,R3> = parameter string descriptor 
50 07 0068 755 ECL ; Skip over underline character 
51 6 O06A 756 INCL R1 ; <RO,R1> = bytes per message descriptor 
0123 0 006C 757 BSBW CONVERT_HEX_STRING ; Convert str ng to binary value 
O13Cc'CF 51 80 tH 758 MOVW R1,W*FACLSW_PERMSG ; Save number of bytes per message value 
50 3 D 0074 759 10$: mMOVQ R2,RO ; <RO,R1> = parameter bitmask descriptor 
011 30 0077 760 BSBW CONVERT_HEX_STRING ; Convert string to winery value 
04 A8 51 90 OO7A 761 MOVB R1,FAL$B_LOGGING(R8) 3 Store logging flags in FAL work area 
FFAB 31 OO7E 16¢ BRW PARSE_NERT : Parse next qualifier 
0081 764 
81 765 ; Process the que) * Ser keyword and its associated value string. The value may 
bb} 766 3; be either a decimal or a hexadecimal integer depending on the keyword. 
081 768 ° 
3 1 a4 PROCESS_QUALIFIER: : Process qualifier (keyword/value str) 
56 FF A3 20202000 8F CB 1. 770 BICL #*X20202000,-1(R3),.R6 ; Move slash and first three characters 
O8A 771 : _of qualifier to register upcased 
56 4D50422F 4 p pea 4k 10$: tes g.g\/0PR\ 6 ; Check for BPM=ddddd (zero is valid) 
005¢ fi bar 774 BSBW CONVERT _DEC_STRING ; Convert string to binary value 
O13C'CF 1 B60 96 775 MOVW R1,W*FACLSW_PERMSG ; Store bytes per message value 
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N 9 
S a tS v1 6 
ARSE FALSLOG STRING 5=-SEP-1984 01: 


PARSE_NEXT 
#*A\/BPL\,R6 
CONVERT DEC_ STRING 
35$ 

Ri ,W°FALLSW_PERLINE 
PARSE_NEXT 
#AA\/RBK\ RO 

40 


CONVERT _DEC_STRING 
R1,#F ALSK_MIN_RBK 


Ri, #FALSK_MAX_RBK 
Ri, FALSB RBK_CACHE(RB) 


P N 
#FALSV_PARSE_ERR, (R8) 
PARSE_RNEXT 


grAN/DIS\ RG 
CONVERT_HEX_STRING 
R1,FAL$B_DISABLE(R8) 
PARSE_NERT 
#*A\/ENA\ RO 

60$ 
CONVERT_HEX_STRING 
R1,FAL$B_ENABLE(R8) 
PARSE _NERT 

gr A\/0BS\..R6 

CONVERT _DEC_STRING 
R1,FALS$Q_USE_DBS(R8) 
#FALS$V_USE_DBS, (R8) 
PARSE_NEXT 


#*A\/SYS\,R6 
80$ 


B°A\/VER\ RO 
CONVERT_HEX_STRING 
Ri, FAL$C_USE_VER(R8) 
#FALSV_USE_VER, (R8) 
PARSE_REXT 


#*A\/SCIN,RO 
100% 
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3; Parse next qualifier 
Check for /BPL=dd 
Convert string to binary value 
This must be a non-zero value 
Branch if zero 
Store bytes per Line value 
Parse next qualifier 
Check for /RBK_CACHE=ddd 


Convert string to binary value 


Sete Ge Ge Ge Ge Ge 


than minimum allow 


than maximum allowe 
Store RMS cache block value 
Parse next qualifier 
Denote invalid value 
Parse next qualifier 


Check for /DISABLE=xx 

Convert string to binary value 
Store bitmask in FAL work area 
Parse next qualifier 

Check for /ENABLE=xx 

Convert string to binary value 
Store bitmask in FAL work area 
Parse next qualifier 
Check for /DBS=ddddd 
Convert string to binar 
Store buffer size in FA 
Denote DBS present 
Parse next qualifier 


Check for /SYSTEM=xxxx 


value 


Convert string to binary value 
Store bitmask in FAL work area 
Denote SYS present 

Parse next qualifier 


Check for /VERSION=xxxxxxxx 


Convert string to binary value 
Store bitmask in FAL work area 
Denote VER present 

Parse next qualifier 


Sete Se Se Se te 


Check for /SCl=xxxxxxxx 


Branch if specified value is less 
e 
Branch if specified soles is greater 


work area 
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FALLOGGER - FAL LOGGING ROUTINES 16-SEP-1984 01:44 
v04-000 FALSPARSE_FALSLOG = PARSE FAL$LOG STRING iets Shit? 
003c «(3 153 3 BSBW CONVERT _FEX_ STRING ; 
OOA8 C8 3 30 156 4 MOVL _ R1,FALSC_USE_SC1(R8) ; 
158 5 SSETBIT #FALSV_USE_SC1, (RB) : 
FECA 31 Ft § BRW PARSE_NEXT ; 
56 3243532F BF Di 188 § 100$: CMPL #*A\/SC2\,R6 3 
F 1 16 BNEQ 999$ 3 
vag 3 168 40 BSBW CONVERT_HEX_STRING ; 
OOAC C8 1 00 18 41 MOVL R1,FALSC_USE 3° (R8) H 
01 he SSETBIT #FALS$SV_USE_SC2, (R8) : 
FEB2 =31 «+017 84 ARSE_NEXT : 
bi7a See 999$: SSETBIT #FALSV_PARSE_ERR, (RB) : 
FEAB 31 O17E 45 BRW PARSE_REXT 3 
0181 846 
0181 847 ;+ 
0181 848 ; These routines convert either a decimal 
0181 849 ; binary value which is returned in R1. 
oie 850 ;- 
0181 o2! 
0181 26 CONVERT_DEC_ STRING: ; 
O3F4 C8 DF 0181 85 PUSRAL FALSL_TEMP(R8) 5 
51 DD 0185 S2e PUSHL R11 ; 
50 DD 0187 55 PUSHL a0 3 
00000000'GF 03 FB 0189 856 CALLS #3,G*LIBSCVT_DTB ; 
OF 11. 0190 857 BRB CONVERT_COMMON ; 
0192 858 CONVERT_HEX STRING: ; 
O3F4 C8 DF 019 859 PUSAAL FALS$L_TEMP(R8) ; 
51 DD 0196 860 PUSHL R1 : 
50 DD 0198 861 PUSHL RO 3 
00000000'GF 03 FB OQ19A Hu CALLS #3,G*LIBSCVT_HTB ; 
O1A1 863 CONVERT_COMMON: : 
06 50 €9 O1A1 864 BLBC RO,10$ : 
51 O3F4 C8 DO O1A4 865 MOVL FALSL_TEMP(R8) ,R1 s 
05 Q1A9 866 RSB F 
01 BA OQ1AA 867 10 POPR #*°M<RO> : 
O1AC 868 SSETBIT #FAL$SV_PARSE_ERR, (R8) : 
FE79 31 0180 869 BRW PARSE_NEXT ; 
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; Convert string to binary value 


Store bitmask in FAL work area 


; Denote SC1 present 
; Parse next qualifier 


Check for /SC2=xxxxxxxx 


Convert string to binary value 
Store bitmask in FAL work area 
Denote SC2 present 

Parse next qualifier 


e 
; Denote invalid qualifier 
; Parse next qualifier 


or a hexadecimal number to an unsigned 


; Convert decimal string to binar 

; Address to place converted result 
; Address of input string 

; Size of input Strong 

; Perform the conversion 

; Join common code : 

; Convert hexadecimal a to binary 
; Address to place converte 

; Address of input string 

; Size of input a 

; Perform the conversion 


result 


; Common conversion code 
; Branch on failure ; 
; Return resultant binary value in R1 


xit 
; Discard return address 
; Denote conversion failure 
; Parse next qualifier 


) 


FAI 
vO 
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v04-000 FALSSTATISTICS = COMPUTE AND PRINT STATI 5=SEP=1984 01:17:06 CFAL.SRCJFALLOGGER.MAR; 1 sai (3) vo 
~SBTTL FALSSTATISTICS = COMPUTE AND PRINT STATISTICS 
-PSECT FALSCODE_LOGGER NOSHR,EXE,RD,NOWRT,BYTE 


Oo 
Oo 
o 
oS 
OOOCCoo 


tubwieabwtebubabububpbahbabububvbebuimabal Dobe aboababobabahbwabahuababuibabahabubabaDah ahababuiaaaaaaDadbentaDal 
OOOO OMOCWBDWWWWVWWVIVMIVIVIVAIVOVIVOIVOIVIVOVIVOVIVIOVIOVIVOIVIVOWOVOIVIVIVIOVOWVVIOVIVIVIVOOOWVIOWOOOODW 


AACA WMS 09600000 00 00 09 09 WWIWIWI WINN NINIWI AI NININININIAI WWIII NIA AAAI NINA NIAI NIAAA 


: Functtonel Description: 
FALSSTATISTICS computes and prints statistics to the print file. | 
Calling Sequence: 
BSBW FAL$STATISTICS 
Input Parameters: 
None 
Implicit Inputs: 
None 


Output Parameters: 


RO-R7 Destroyed 
R9-R11 Destroyed 


Implicit Outputs: 
None 
Completion Codes: 


None 
Side Effects: 
FALSSTATISTICS: : ; Entry point : 
57 00CO0 C8 ODE MOVAL FALS$L_STB(R8),R7 ; Get address of statistics block 


; Compute total Link connect time and store it in 64-bit delta time format. 
; The staring and ending times are initially in 64-bit absolute time format, so 
; delta_time = -(end_time - start_time) = (start_time - end_time). 


QOBC'CF C2 SUBL2 W*FAL$GQ_TIME1,- ; Double precision subtraction of 
00B4 ' CF Wer AL sea. TIM) 3 end ing time from starting time 
OOCO'CF D9 SBWC W*FAL$GQ_TIME1+4,- ; to obtain negative difference and 
0088 * CF W*FALS$GQ_TIMEO+4 : store in 64-bit delta format 


: Compute total CPU time used while the logical Link connection was in effect 
; and store the result in 64-bit delta time format in_100 nanosecond units, 
3; The starting and ending CPU times are initially in 32-bit binary format in 


NAUAS WN 2 OOO NAME WIN OOD NAUE WIN $0 ODNAU EWN SO OONOAU EWR OOONOULS Wh 


WWOODOODODODOOOOOOO0O00O00000000 00 000000000900 09 00 09 09 09 09 09 00 00 09 0D C000 09 00 CD CO CD CD CD CD CD CDCD 
PORIPOPONINININS 4 9 9 MH OOODOODOOOO OO OOOO OOO OOH W000 090 NI NINN 


fe Te le we we ee wwe we lew le we lew lw aw le ew ww nw awl w law lolololololeolelolelololelolelolealelelolololalo) 


| 
| 
} 
| 
| 
None 
| 
| 
| 
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FALSSTATISTICS = COMPUTE AND PRINT STATI 5=SEP-1984 Bhi Ttiog ERAL SRCIFALLOGGER. MAR; 1 * ‘3 
166 «6928 ; 10 millisecond units (or hundredths of a second). Therefore, the algorithm is 
1t8 4 ; ; delta_time = (start_units = end_units) * 185800. . 
16 «931 * 
136 Ce cs vite ¢ SUBL3. W*FALLSL_CPUTIM1,- ; Subtract ending tine ticks from 
50 120°CF 1CA 9 W*FALLSL "eben ; starting time ticks to obtain 
0120°CF 50 000186A0 8F C5 OIC 934 MULL3 #100000,R0,- : negative difference, then multiply 
1D 935 W*FALL$G CPUT IME : by 100000 and store result as a 
O124'CF O01 CE 13 2 § MNEGL #1,W*FALCSQ_CPUTIME+4 ; 64-bit delta time 
Q1DD 38938; 
01D 44 ; Write total Link connect time and total CPU time used to the print file. 
1DD 39-941 
01DD 228 $FAO_S- ; Format the message 
O1DD 3 94 CTRSTR=W*FALL$Q_CONNTIME=; Address of FAO control string 
O1DD 944 OUTLEN=W*FALSGW_PRTLENI=; Address to receive string length 
Q1DD 945 OUTBUF=W*FAL$GQ_PRIBUF1-; Address of buffer descriptor 
O1DD 946 P1=#F AL$GQ_TIMEU- ; Address of delta connect time 
O1DD 947 P2=#FALL$Q_CPUTIM ; Address of delta CPU time used 
O1FC 948 SCHECK_STATUS ; Check status code 
0213 30 OFF 949 BSBW FALSPRINT_FAO ; Print message 
020 950 
020 951 ; 
020 226 ; Total the event counters. 
0202 953; 
O50s 954 
67 C1 020 955 ADDL3 FALSL_RCV_PKT(R7),- ; Total DAP message packets 
52. 14 A? 0204 956 FALSL_XMT_PKT(R7) ,R2 3 
04 A? (C1 aso, 957 ADDL3 FALSL_RCV_MSG(R7),- ; Total DAP messages 
53 18 A? 020A 958 FALSL_XMT_MSG(R7) ,R3 : 
08 A? «3C1 «(020D) 6959 ADDL3 FALSL_RCV_DAT(R7),- ; Total user records/blocks 
54 1C A? bsi9 960 FALSL_XMT_DAT(R7) ,R4 : 
OC A? 36C1. «(021 961 ADDL3 FALS$L_RCV_USR(R7),- ; Total bytes of user data 
55 20 A7 0216 6 FAL$L_XMT_USR(R7) ,R5 : 
10 A? «C1 (0219) = (96 ADDL3 FALS$L_RCV_LNK(R7),- ; Total bytes of Link data 
56 24 A7 O21C 964 FALSL_XMT_LNK(R7) ,R6 3 
O21F 965 
O21F 966; | : 
if sth 3; Write statistics header and counters to the print file. 
O21F 969 
O21F 970 $FAO_S- ; Format the message 
8 1F = 971 CTRSTR=W*FALLSQ_STATi-  ; Address of FAO control string 
1F 358 OUTLEN=W*FALSGW_PRILEN1I-; Address to receive string length 
O21F 97 OUTBUF=W*FAL$GQ_PRIBUF1-; Address of buffer descriptor 
O21F 974 PI=FALSL_RCV_PKT(R7)- ; &# DAP message packets received 
8 1F 975 P2=FALSL_XMT_PKT(R7)- ; &# DAP message packets transmitted 
1F 976 P5=R2- ; # DAP messages packets exchanged 
1F 977 P4=FALSL_RCV_MSG(R7)- ; # DAP messages received 
1F 44 PS=FALSL_XMT_MSG(R7)- ; # DAP messages transmitted 
a or P6=R ; _# DAP messages exchanged 
41 980 SCHECK_STATUS ; Check status code 
O1CE 30 44 981 BSBW FALSPRINT_FAO ; Print message 
47 9 ¢ .s* ; Format the message 
8 - 6 CTRSTR=W*FALL$Q_STAT2=- ; Address of FAO control string 
47 984 OUTLEN=W*FALSGW_PRILENI-; Address to receive string Length 
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v04-000 FALSSTATISTICS = COMPUTE AND PRINT STATI mets 1:17:06 CFAL.SRCJFALLOGGER.MAR;1 (5) | 
47 985 OUTBUF=W*FAL$GQ_PRIBUF1=-; Address of buffer descriptor 
| a § PI=FALS$L_RCV_DAT(R7)=- ; # data records/blocks received 
47 9 pesnae™ XMT_DAT(R7)=- ; &# data records/blocks transmitted 
47 9 : PS=R4- ; # data records/blocks exchanged 
47 9 PG=FALSL_RCV_USR(R7)- ; # bytes of user data receive 
47 990 PS=FALSL_XMT_USR(R7)- ; # bytes of user data transmitted 
47 991 4 et a ; # bytes of user data exchanged 
0247 336 P7=FALSL_RCV_LNK(R7)- ; # bytes of Link data received 
47 99 PS=FALSL_XMT_LNK(R7)- ; # bytes of Link data transmitted 
47 994 P9=R6 ; _# bytes of Link data exchanged | 
7 995 SCHECK_STATUS ; Check status code 
0190 30 7? 809 BSBW FALSPRINT_FAO ; Print message 
0578 998 
027 999 ; Convert logical Link connect time from internal 64-bit delta time format in 
0278 1000 ; 100 nanosecond units to 32-bit binary format in 10 millisecond units (or 
0 4 1001 ; hundredths of a second). 
027 1996 3 
0278 100 
59 O0098'CF DO 0278 1004 MOVL W*FAL$GQ_PRTBUF1+4,R9 ; Get 14 byte scratch buffer address 
027D 1005 SNUMTIM_S TIMBUF=(R9)- ; Convert delta Link connect time 
027D 1006 TIMADR=W*FAL$GQ_TIMEO ; to numeric values 
028A 1007 SCHECK_STATUS ; Check status code 
89 D5 O028D 1008 TSTL (R9)+ 3; Skip to day field address 
5B 89 3C OQO28F 1009 MOVZWL (R9)+,R11 3; Get day value 
58 «18 ~=«(C4 0298 1010 UL #24,R11 ; Convert to hours | 
SA 89) 3C-«(0295 1011 MOVZWL (R9S+,R10 : Get hour value 
5B «SA «(CO (0298 1018 ADDL2  R10,R11 : Obtain total hours 
5B 3C ge 0298 101 MULL #60,R11 ; Convert tc minutes 
SA BS) 3CC29E «1014 MOVZWL (R9S+,R10 : Get minute value 
58 «5A «CO «(O2AT «(1015 ADDL2 R10,R11 : Obtain total minutes 
7 ge 8 AG 1016 MULL #60,R11 ; Convert to seconds 
5A 89 C A7 1017 MOVZWL (R9S+,R10 ; Get seconds value 
538 SA (CO O2AA 1018 DDL2 R10, R11 ; Obtain total seconds 
58 00000064 BF C4 OAD 1019 ULL2 #100,R11 : Convert to hundredths 
5A 89 3C 02B4 1020 MOVZWL (R9)+,R10 ; Get hundredths value 
58 OSA £9 0287 19 1 ADDL2  R10,R11 ; Obtain total hundredths 
69 «1 osBA 18 ¢ BEQL AVERAGE ; Branch if zero (something is wrong!> 
BC 1024 ; 
+ 18 5 ; Compute Line throughput statistics where: 
BC 10 5 3; Throughput = <#bits> / <#seconds> | 
BC 18 3 : = <#bits * 100> / <#seconds / 100> 
Bc 1 : = <#bytes * 8 * 100> / <#hundredths> 
+! \} ? 3 = <#bytes> / <#hundredths / 800> 
ec 1 ; : 
59 SB 4€ BC 1 ‘ CVILF = R11, R9 ; Put hundredths of second value 
BF 1034 ; _in floating point format 
59 00004548 BF 46 BF 1035 DIVF2  #800,R9 ; Build divisor in desired form. | 
50 OC A? 4E C6 1 § CVTILF FALSL_RCV_USR(R7) ,RO ; Put # bytes of user data received 
CA 1 ; _in floating point format 
50 59 46 CA 1 3 DIVF2 R9.R ; Compute receive baud rate 
50. 50 8648 CD 1 CVTRFL RO,R ; Round result and store as integer 
51 20 A7 4E DO 1040 CVTILF = FALSL_XMT_USR(R7) ,R1 : Put # bytes of user data transmitted 
D4 1041 : in floating point format 
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v04-000 FALSSTATIST = COMPUTE AND PRINT STATI ets 1:43:88 YRAL SCJP ALLOGGER.MAR; 1 ° 48 
1 9 46 DIVF2 R9,R1 ; Compute transmit baud rate 
1 1 48 CVTRFL R1,R1 ; Round result and store as integer 
2 5 64E CVTILF = R5,R2 ; Put # bytes of user data exchanged 
: _in floating point format 
28 23 46 DIVF2 9 Re ; Compute full-duplex baud rate 
5 § 48 CVTRFL R2,R ; Round result and store as integer 
53 110A 4E CVTLF =6FALSL_RCV_LNK(R7) ,R3 ; Put # bytes of Link data received 
: _in floating point format 
33 23 46 DIVF2 Ro Re 3; Compute receive baud rate 
5 3 648 CVTRFL R3,R ; Round result and store as integer 
SA 24 A7 4€ CVTLF FALSL_XMT_LNK(R7),R10 ; Put # bytes of Link data transmitted 
; _in floating point format 
SA 59 46 DIVF2 R9,R10 3; Compute transmit baud rate 
SA SA 48 CVTRFL R10,R10 ; Round result and store as integer 
58 56 O4E CVTLF = R6, R11 ; Put # bytes of Link data exchanged 
5 IR bag point format 
5B 59 646 DIVF2 R9,R11 ; Compute full-duplex baud rate 
58 «65B. 4B CVTRFL R14,R11 : Round result and store as integer 


: Write logical Link throughput statistics to the print file. 


$FAO_S- ; Format the message 
CTRSTR=W“*FALL$Q_STAT3- ; Address of FAO control string 
OUTLEN=W*FALSGW_PRTILENI-; Address to receive string length 
OUTBUF=W*FALS$GQ_PRIBUF1-; Address of buffer descriptor 
P1=RO- User receive threugneut 
User transmit throughput 
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=R11 
SCHECK_STATUS 
BSBW ~ FALS$PRINT_FAO 


; Compute average record/block size. 


AVERAGE : 


~ 


0 
LSL_RCV_DAT(R7) ,RO 


LSL_RCV_USR(R7) ,R1 
0.R1 
1,R9 
ALSL_XMT_DAT(R7) .RO 
ALS _XMT_USR(R7) ,R1 


ror-o 


a 


10$: 


fo 


20$: 
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User full-duplex Sour 
Link receive sOreugpu 
Link transmit throughput 
Link full-duplex throughput 
Check status code 
Print message 


Prepare for zero divisor 


Get divisor 

Avoid division by zero 
Get dividend 

Find average receive size 
Round an store as integer 


Get divisor 

Avoid division by zero 

Get dividend 

Find average transmit size 
Round an store as integer 
Get divis 


r 
Avoid divisten by zero 
Get dividend 

Find overall average size 
Round an store as integer 
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: Write average record/block size statistics to the print file. 


CK_STATUS 


S$CHE 
BSBW ~ FALSPRINT_FAO 


MOVL FALS$L_RCV_LNK(R7) ,RO 
MOVL FAL$L-RCV_USR(R7) ,R1 
BSBW PERCERTAGE 

MOVa RO,R 

MOVL FALSL_XMT_LNK(R7) ,RO 
MOVL FAL$L~XMT-USR(R7) ,R1 
BSBW PERCENTAGE 

MOVQ RO,R10 

MOVL R6,RO 

MOVL R5,R1 

BSBW PERCENTAGE 


$FAO_S- 
CTRSTR=W*FALL$Q_STATS- 


OUTLEN=W“F AL$GW_PRTLEN1- 
10 Setar. aa 


Po 
SCHECK_STATUS 
BSBW FALSPRINT_FAO 


Write other performance indicators to 


MOVZWL  FALSW DAPBUF S17 (RB) .R1 
SUBL3 W*FALCSL_BUFIOO,- 


; Check status code 
Print message 


30$: $FAO_S- i Format the message 
Sh ht pe HE 4- ; Address of FAO control string 
OUTLEN=W*FALSGW_PRTLENI=; Address to receive string Length 
bb «shaadi cateaa ehhh. Address of buffer descriptor 
P1=R9- 3; Average receive record/block size 
eganiy” ; Average transmit record/block size 
P5=R11 ; Average overall record/block size 


Compute (DAP) protocol efficiency statistics where: 
; efficiency = <user_data_bytes> / <totaL_link_data_bytes> 


; Get divisor 

3; Get dividend 

; Compute receive percentage 
3; Copy results to <R2,R3> 

; Get divisor 

3; Get dividend 

; Compute transmit percentage 
; Copy results to <R10,R11> 

; Get divisor 

3; Get dividend 

; Compute full-duplex percentage 
; results are in <RO,R1> 


(DAP) protocol efficeincy statistics to the print file. 


Format the message . 
Address of FAO control string 

; Address to receive string iength 
; Address of buffer descriptor 
Receive protocol efficiency 


Transmit protocol efficiency 
Overall protocol efficiency 


Check status code 
; Print message 


@ 
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the print file. 


; Get negotiated DAP buffer size 
Find total buffered 1/0 count 
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52 1 fee cs8 11 § W*FALL$L_BUFIO1,R2 ; | 
150°CF C3 cf 11 SUBL3)  W*FALL eat ees ; Find total direct 1/0 count 
53 0134'CF D0 11 8 W*FALLS$L_-DIRIO1,R3 : 
D4 «(11 $FAO_S- ; Format the message 
D4 1160 Be ee eeu ar ar becPart On ; Address of control string 
D4 11 OUTLEN=W*FALSGW_PRTILEN1=; Address of receive string length | 
D4 11 QuTe FeW*FAL$GQ_PRTBUF1-; Address of buffer to put string 
D4 116 Pi=Ri- ; Negotiated DAP buffer size 
D4 1164 pears. ; Total buffered 1/0 count 
D4 1165 P5=R5- ; Total direct 1/0 count 
D4 1198 P4=W*F ALLSL_WSPEAK ; Peak working set size 
Fi 118 SCHECK_STATUS ; Check status code 
OO1E 30 F& 11 8 BSBW FALSPRINT_FAO ; Print message 
05 F7 119 RSB ; Exit 
F8 1170 
O3F8 1171 34+ 
O3F 1178 ; This routine computes a percentage in xx.y format, given an integer divisor 
tH aS ; and an integer dividend. 
tH 1175 ; On input: 
O3F 1126 $ 
O3F8 1177 ; RO = Divisor 
oars 1178 ; R1 = Dividend 
O3F8 1179 ; 
O3F8 1180 ; On output: 
O3F8 1181 ; 
tH 11 ¢ : RO = xx part 
O3F8 1183; R1 = y part 
O3F at i-- 
O3F8 1185 
8 F 1136 PERCENTAGE: ; Entry point 
50 50 4 3F8 118 CVTLF RO,RO ; Put divisor in floating point format 
10 13 OQO3FB 1188 BE 10$ ; Branch if division by zero | 
51. 51 4E O3FD 1189 CVTILF = R1,R1 ; Put dividend in floating point format 
51 0000457A 8F 44 Be 00 1190 speed #1600,R1 ; Compute percentage x 10 
51 50 46 0407 1191 DIVF RO,R1 .* 
50 51 4B Q40A 1138 CVTRFL R1,R0 ; Round result and store as integer 
51 D4 040D 1195 108: CLRL ; Prepare for double precision division 
51 50 50 OA 7B Q460F 1194 EDIV #10,R0,R0,R1 ; Split result into xx.y format 
05 0414 1195 RSB ; Exit 


NG ROUTINES 1 =SEB-1984 
AO, FALSPRINT_FAO_ASTLEVEL =SEP=1984 
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1 
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.SBTTL FALSPRINT_FAO, FALSPR 
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p++ 
3; Functional Description: 


FALSPRINT_FAO outputs the buffer formatted by FAO to the print file 
and is called from non-AST-Llevel code. 


FALSPRINT_FAO_ASTLEVEL performs the same function, except it is called 
from AST-Tevel code. 


; Calling Sequence: 


BSBW = FALSPRINT_FAO 
BSBW FALSPRINT~FAO_ASTLEVEL 


; Input Parameters: 
None 


pololeleleleleloleleleleleleleleloleloleololelo) 


; Implicit Inputs: 


FAL$GQ_PRTBUF 1 
FAL$GQ_PRIBUF2 


: Output Parameters: 

; RO-R1 Destroyed 

: Implicit Outputs: 

: FALSPRTRAB is updated 
; Completion Codes: 

; None 

: Side Effects: 

None 
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; Entry point 
; Get address of print RAB 

; Update buffer address in RAB 
RABSL_RBF(R1) 


MOVW W*FALSGW_PRTLEN1,- ; Update buffer size in RAB 


FALSPRINT_FAO:: ; 

MOVAL 3 
RAB$W_RSZ(R1) : 
AB=RT : 


51 005 W*FALSPRTRAB,R1 


W*FAL$GQ_PRTBUF1+4,- 


$PUT RAB ; Write the record 
SCHECK_STATUS 
TSTwW 


TU ; Check completion code 
A, W*FALSGW_PRTLEN2 


00A6' CF ; Check for AST level PUT failure 
INCL W*FALSGL_COUNTER1 


0154°CF 


SOSSDODOSOOOSOSSOOSOOOOSOOOOOOOO OOOO OOO 
PRR R RR RR RRR PR PRP PRR RRP RRR RRR RRR RRP PPR PRR PRP PPR RRP RPP PRP RE 


o—-w 
Ow 


because of PUT above in progress 
; Count occurrence of race condition 


Bie 


oOo 
— 


Jd: 


848C 8F 
82DA 8F 


~Nomo —*—"" 


¢ OvViow! POPOO 


00A6' 
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a a 8 a 
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POOL SLEW ZO 


5 ab allele la ee ee te le te tak ee eee ae el 
MP NMoMmOOmMmProlk nn HMA 


UTINES Ig-§ 
ALSPRINT_FAO_ASTLEVEL -SEP=1 
BSBB —FALSPRINT_FAO_ASTLEVEL 


~~ at 
So 
bed 


ALSPRINT FAO _ASTLEVE 
MOVA WTF AL pat RAB,R 
Mas W*FALSG A RATBUF2+6, - 
RABSL SBRKRID 
MOVW WFALSGu PRTLEN2,- 
RABSW_RSZ(R1) 


$PUT RAB=R 

iy RO, #<RMS$_BUSY&*XFFFF> 
Hay RO ,#<RMS$_RSAG“XFFFF> 
a STAT 


US 
WeFALSGW ~PRTLEN2 


— 
o 
bad 
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FAL.SRCJFALLOGGER.MAR; 1 (6) 
yrige AST Level message now 


Entry point 
Get Lodress of print RAB 
Update buffer address in RAB 


Update buffer size in RAB 


Write the record 

Record stream busy? (new status code 
If so, exit to let other Ay finish 

Record stream active erro 

If so, exit to let gther PUT finish 

Check song.e7 sen € cod 

pee AST Level PUT complete 
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FALLOGGER = FAL LOGGING ROUTINES 16-SEP-1984 01:44:38 VAX/VMS Macro V04-00 Page 27 
v04-000 FALSDISPLAY_MSG = DISPLAY MESSAGE BUFFER eet 7 Bt t5i88 FAL.SRCJFALLOGGER.MAR; 1 ° (7) 
46F if -SBTTL FALSDISPLAY_MSG = DISPLAY MESSAGE BUFFER 
0000 rh y? -PSECT FALSCODE_LOGGER NOSHR,EXE,RD,NOWRT,BYTE 

cer 75 34+ 
ree 6 Functional Description: 
46F 4 FALSDISPLAY formats the specified DAP message and outputs it to the 
046F 7 print file. Note that for incoming measeges this routine requires 
O46F 80 that FALSDECODE_MSG has already parsed the message and updated the 
046F 1 DAP control block. 

§ Calling Sequence: 

2 Call #3,FALSDISPLAY_MSG 

4 ; Input Parameters: 

89 4(AP) Address of header text (counted ASCII string) for message 

90 8(AP) Size of the DAP message in bytes 

91 12(AP) Address of the DAP mersage 

38 Rg Address of DAP control block (for incoming messages) 

94 ; Implicit Inputs: 

95 p p 

36 £ 

FALLS$W-PERLINE 


Output Parameters: 
RO-R1 Destroyed 
Implicit Outputs: 
None 
Completion Codes: 
None 
Side Effects: 
None 


: FALL$W_PERMSG 


PRR RRR RRR RRP RRR PR PPR PRR RRR R RRR RRR RRR RRR RRR RPE 

NINN NINA AAAAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAMAO 

Se SL ee ee ee eee ee eee eee ee ee SS | 
WWIII AWN ANNA AAA AAA AAAI 


SOOOCCOCOOOCOOOOCOCOOCOGOOOOOOOOOOOSOOOOOOCOOOOOOOOOOOOOoOO 


POROUS BOO OODOOOOO0OO 
WNOUNE WN OOD NOUL WO DDNAUNE WN =O O00 


003C¢ sENTRY FALSDISPLAY_MSG,“M<R2,R3,R4,R5> ; Entry point 
: Determine total number of oyyes to oe 4 of the DAP message and the number 
3; of bytes to display on the first line of the printout. 
50 O13C'CF Hs MOVZWL W*FALL$W_PERMSG,RO ; Get max # bytes to display per message 
55 O140'CF «=. 3¢ MOVZWL W*FALLSW"PERLINE RS : Get max # bytes to display per Line 
50 O8 AC 01 CMPL (AP) ,RO ; Is message size GEQ max count? 
04 ~=«*'€E BGEQU : Yes 
50 08 AC 00 MOVL 8(AP),RO ; No, use actual message size 


| 
a 
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FALLOGGER - FAL LOGGING ROUTINES 19 $60-1986 0:46: 8 VAX/VMS Macro V04-00 Page i] 
v04-000 FALSDISPLAY_MSG = DISPLAY MESSAGE BUFFER 5-SEP-1984 01:17:06 CFAL.SRCJFALLOGGER.MAR; 1 (7) 
22 2 DO 04 ; 1329 10$: MOVL R RB ; Save count 
Di 04 13350 CMPL RO,R ; Branch if message will fit on one 
18 0488 1331 BLEQU 20 : Line 
29 D 48D 1 § MOVL be RO 3; Specify count for this Line 
<5 i33 } ? 20$ SUBL2 RO,R ; Detern ne count remaining after this | 
>) a 0 493 1335 MOVL RO,R1 ; Save count for this Line 
0A 1 49 $ BEQL 4©=«-_-40$ ; Branch on zero length message 
498 1 H 
: 1 33 ; Construct parameter List on the stack for use by $FAOL routine. 
498 1341 ; RO=R1 # bytes to print on first Line 
833 1 g 3 i Total # bytes to display for message 
0498 1344 
52 OC AC DO 0498 1345 MOVL 12(AP) ,R2 ; Get address of message buffer 
7E 86 9A 049C 1 $6 30$: MOVZBL (R2)+,-(SP) ; Put each character in List 
FA 50 FS O49F 134 SOBGTR RO, 30$ : Continue until done 
51 DD Q4A2 1348 40$: PUSHL R1 ; Put # bytes to convert in List 
08 AC DD Q4A4 1349 PUSHL  8(AP) ; Put actual message size in list | 
50 OC BC QA OQ4A7 1350 MOVZBL @12(AP),RO ; Get first byte of message (type field) 
0070 30 O4AB 1351 BSBW  GET_FUNCTION : Get function code 
54 DD OQ4AE 1336 PUSHL R4 ; Put address of string in List 
08 a be gee 1327 Ot giaP) ; Branch on zero Length message 
OF 50 91 Q485 1355 CMPB RO, #DAPS$K_NAM_MSG ; Bounds check message type value 
02 1B 0488 1356 BLEQU 608 : Branch if within range 
50 D4 Q4BA 1357 50$: CLRL ; Treat as reserved 
0918'°CF40 OOF peer ! 33 60$: PUSHAL W*FALLSL_MSGTYPECROJ ; Pyt pgeress of message type text 
04 AC DD O4¢1 1360 PUSHL 4(AP) Put address of header text for message 
51 5E DO Q04C4 1306 MOVL SP,R1 : Get address of FAOL parameter List 
Ocey 1364 
04C€7 1365 : Format and print first Line of message. 
Ocey 1367 
04C7 1368 $FAOL_S- ; Format the message 
04C7 1 9 CTRSTR=W*FALLS$Q_LOGMSG- ; Address of FAOL control string 
04C7 1370 OUTLEN=W*FALS$GW_PRILENI-; Address to receive string length 
04C7 1371 OUTBUF=W*FAL$GQ_PRIBUF1-; Address of buffer descriptor 
4C7 1 ie PRMLST=(R1) :; Address of parameter List 
bebe 137 SCHECK_STATUS ; Check status code 
FF33 ©30 rt ! a BSBW FALSPRINT_FAO ; Print message 
4E2 1376; 
rt; ! i 3; Print additional Lines as required to display the entire DAP message. 
4E2 1379 ° 
4E2 1380 DISPLAY_LOOP: $ : 
50 3 0 4E2 1381 MOVL R3,R0 ; Get # bytes remaining to display 
36 1 4E5 1 § BEQL D SPLAY_EXIT ; Branch if none | 
55 D1 QO4E7 1 CMPL RO,R ; Branch if message will fit on one 
03 if SEA 1384 BLEGU 10$ : _line | 
50 D 4EC 1385 MOVL R5,RO : Specify count for this Line 
| 
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FALLOGGER - FAL LOGGING ROUTINES 16-SEP-1984 01:44:38 VAX/VMS Macro V04-00 Page 29 FA 
v04-000 FALSDISPLAY_MSG = DISPLAY MESSAGE BUFFER iets Bh i79i68 FAL.SRCJFALLOGGER.MAR; 1 ’ (7) vo 
33. SOCK rt} } § 108: SUBL2 RO,R3 3 Deternine count remaining after this | 
3 ne 
51 50 4 4F2 1 8 MOV RO,R1 ; Save count for this Line | 
7€ 88 A O4F5 1389 208 MOVZBL (R2)+,=(SP) ; Put each character in List | 
FA F5 O4FB 1390 SOBGTR RO,20$ : Continue until done 
ee D 4FB 1391 PUSHL Rl ; Put # bytes to convert in List 
51 . 8 of8 ! 38 MOVL SP,R1 ; Get address of FAOL parameter List 
5 1394 ; 
: ! 56 ; Format and print next line of message. 
500 1397 ° 
88 6 1 38 $FAOL_S- ; Format the message 
8208 139 CTRSTR=W*FALL$Q_LOGMSG2-; Address of FAOL control string 
0500 1400 OUTLEN=W*FALS$GW_PRTLENI-; Address to receive string length 
0500 1401 OUTBUF=W*FALS$GQ_PRTBUF1-; Address of buffer descriptor 
8208 1406 PRMLST=(R1) ; Address of parameter List 
B21 140 SCHECK_STATUS ; Check status code 
FEFA 30 0518 1404 BSBW FALSPRINT_FAO ; Print message 
cS 11 0518 1405 BRB DISPLAY_LOOP : 
Bi tse 
Q051D 1408 ; The "RET instruction will adjust SP so that the parameter List for $FAOL 
; that was constructed on the stack is eliminated. 
051D 1409 h d h k Limi d 
Os1D aii | 
051D 1419 DISPLAY_EXIT: oe 
04 0510 141 RET ; Exit 
OSE 1415 
aS 
OS1E 1416 ; This routine returns the address of a counted text string that describes the 
OS1E 1417 ; function code (if any) of the parsed DAP message. 
OSE 1219 | Input 
: Inputs: 
OS1E 1420 ; RO Message type value 
OS1E 1421 ; ag Address of DAP control block 
OSIE 14 § 3 Outputs: 
OSIE 1423; R1 Destroyed 
OSIE 1424 ; R4 Address of counted ASCII text string 
OSE 1438 * 
00000040 OSiE 1427 FUNCTION_CODE=DAP$B_CTLFUNC ; Offset of function code fields in DAP 
OSIE 1428 ; _control block (same for all messages) 
51E 1429 GET_FUNCTION: : Entry point 
O000083F*8F 04 AC D1 OSIE 1430 CMPL 4(AP) ,#FALSGT_DECODE ; Branch if this is an incoming message 
OA 13 05 g 1431 BEQL 3; that has just been parsed 
07 50 91 O5 14 5 CMPB RO, #DAPSK_CMP_MSG 3; Check for outgoing Access Complete 
13 is 52B 14 BNEQ 3; message 
1 Om «CS 52D 1434 MOVL SRESPONSE CODE RI ; It must be a response fuction code 
49 11 05 1435 BRB 5 ; Join common code 
5 14 $ 10$: SCASEB SELECTOR=RO- ; Get DAP message type code 
5 14 BASE=#DAPS$K_ACC_MSG- ; 
5 14 8 DISPL=<- ; Message type: 
5 14 0$- ; Access Complete 
5 1440 0$- ; Control 
5 1441 40$- ; Continue Transfer 
5 1442 99$- ; Acknowledge 
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FALLOGGER = FAL LOGGING ROUTINES 16-SEP-1984 01:44:38 VAX/VMS Macro v04-00 Page 
v04-000 FALSDISPLAY_MSG = DISPLAY MESSAGE BUFFER etsy ER YRALYSRCJPALLOCGER MAR; 1 . 
; 196? 50$- 3; Access Complete 
54 0844'CF 4 40 1445 99$: MOVAB W*FALLST_MSG,R4 : Get address of counted string 
0 4 1068 RSB ; Exit 
46 144 
46 1668 : 
rf 1325 : Get address of text string based on message type and function code. 
46 1451 * 
51 40 A9 9A 46 1026 20$: MOVZBL FUNCTION_CODE(R9),R 3; Get Access function code 
0958'°CF41 BE ry 133? y) iae W*FALLSL “RCCEUNC ERT, R4 ; =s.8 address of counted string 
Py x 
51 40 A9 8 29 1455 30$: MOVZBL FUNCTION_CODE(R9) ,R1 3; Get Control rere code 
Of 13 55 1938 BEQL 3 screen out it teget 
46 A G4 57 145 CMPB DAP$B_RAC(R9),=- 3 Branch if not b <a 170 mode; else 
04 SA 1458 #DAPSR_BLK_VBN ; convert ‘GET’ into ‘READ’ string 
08 iF 5B 1459 BLSSU _-35$ : and ‘PUT’ into TURITE® string 
06 51 9! 5D 1460 CMPB R1, #DAPS$K_PUT_WRITE 3; _if function code is within bounds 
03 1A 0560 1461 BGTRU 35$ : Branch if not GET, CON, UPD, or PUT 
51 12 CO oe 1086 ADDL #CTLFUNC_ALT_DEF ,R : Index into alternate definition table 
O97C'CF4) bE 92 1967 35$ ROVAL W*FALLSL_ maaiciee R4 ; get address of counted string 
3: Ex 
51 40 AD 9A 6C 1465 408: MOVZBL FUNCTION_CODE(R9) ,R1 3; Get Continue Transfer function code 
09D8'CF41 DE 20 1466 MOVAL W*FALLS$L-CONFUNCLR1IJ,R4 : Get address of counted string 
51 40 A9 9A 77 +1468 50$: MOVZBL FUNCTION_CODE(R9) ,R1 : Get Access Complete function code 
O9EC'CF41 +) ne 196% 55$: — W*FALLSL_ CMPFUNCCR1],R4 : get ederess of counted string 


] 
} 
FALLOGGER - FAL LOGGING ROUTINES 16-SEP-1984 01:44:38 VAX/VMS Macro v04-00 Page 31 | FAI 
v04-000 FAL$LOG_Q10, FALSLOG_AST g7SEF- 198 1317: 88 URAL SRCIFALLOGGER MAR: 1 ° (8) vo 
147 -SBTTL FAL$LOG_Q10, FALS$LOG_AST 
000098 1478 »PSECT FALSCODE_LOGGER NOSHR,EXE,RD,NOWRT BYTE | 
5 1475 j++ | 
: 1908 ; Write Q10 posted message to the print file. | 
82 1299 FAL$L0G_Q10 E i | 
7% ; ntr oint 
B28 1480 “$FAO_S- 3 Fornst’ the message 
05 1481 CTRSTR=W“*FALL$Q_LOGQIO- ; Address of FAO control string 
05 14 ¢ OUTLEN=W*FAL$GW_PRTLENI-; Address to receive string length 
82 14 SYTEUF sU°FALS6G_ PRIBUF I~; Address of buffer goqcenpeer 
1484 =#0- ; Use current time o eay 
0582 1485 = ; Address of Ri hy string 
0599 1486 SCHECK STATUS ; Check status code 
FE76 §=©30 059C 1487 BSB FALSPRINT _FAO : Print message 
05 O5S9F 1488 RSB ; Exit 
QO5A0 1489 
OSA0 1490 ;++ 
QO5A0 1491 ; Write AST delivered message to the print file. 
0SA0 1436 i-- 
OSAO 149 
QSAO 1494 FALSLOG_AST:: ; Entry point 
O5A0 1495 $FAO_S- ; Format the message 
O5A0 1496 CTRSTR=W*FALL$Q_LOGAST= ; Address of FAO control string 
QSAO 1497 OUTLEN=W*FAL$GW_PRTLEN2=-; Address of receive string length | 
O5A0 1498 OUTBUF =W*F AL$GQ_ -PRTBUF e=; Address of bul ter freee toter 
O5A0 1499 P1=#0- ; Use current time coy | 
Q5A0 1500 P2=R1- ; g*erese 7 Bi hie By string 
Q5A0 1501 rs = : aytes in DAP fesseee packet 
0589 1306 $SCHECK_STATUS ; chee status code 
FE8O 30 O58C 150 BSBW FALSPRINT _FAO_ASTLEVEL : Print message 
05 OSBF 1504 ; Exit 
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FALLOGGER - FAL LOGGING ROUTINES 16-SEP-1984 91:44:38 VAX/VMS Macro V04-00 Page 32 FA 
v04-000 FALS$LOG_REQNAM, FALSLOG_REQNAM2 -SEP=-1984 01:17:06 CFAL.SRCJFALLOGGER.MAR; 1 . (9) | vO 
05c0 15 -SBTTL FALSLOG_REQNAM, FALS$LOG_REQNAM2 
000005C 12 5 -PSECT FALSCODE_LOGGER NOSHR,ERE,RD,NOWRT,BYTE 
2 13 § ++ | 
ef 1219 ; Write requested new file Name message to the print file. 
5¢ 1216 : Inputs: 
2t0 Yale 3 R1 Access function code 
268 1514 ; R2 Address of filespec string descriptor 
a8 Ug 
| 
5CQ 1517 FALSLOG_REQNAM:: ; Entry point 
27 68 20 3 aa 1518 BBC #FALSV_LOG_NAM, (R8),10$ ; Branch if Logging disabled 
31 oO 8 05€4 1519 ASHL #1,R1,R1 ; Multiply by 2 for octaword index 
51 O888'CF41 7E O5C8 1520 MOVAQ W*FALLST_ACCFUNCCR1J,R1 ; Get address of counted string | 
OSCE 1521 $FAO_S- ; Format the message | 
OSCE 15 ¢ CTRSTR=W*FALLSQ_REQNAM- ; Address of FAO control string 
OSCE 15 OUTLEN=W*FALSGW_PRILENI-; Address to receive string length 
OSCE 1524 OUTBUF=W*FAL$GQ_PRTBUF1-; Address of buffer descriptor 
OSCE 1525 Pi=R1i- ; Address of counted string 
bock 1526 P2=R2 : Address of filespec string descriptor 
OSE 1360 $CHECK_STATUS ; Check status code 
W L NT_ ; Print message 
FE2A 30 OSE8 1528 BSB FALSPRINT_FAO Pri 
05 OSEB 1529 10$: ; Exit 
aE 
OSEC 1336 ; Write requested new file Name message to the print file. 
OSEC 1834 ; Input | 
3 Inputs: 
OSEC 1535; R2 Address of filespec string descriptor | 
GEE 1338 ~~ | 
O5EC 1538 FALSLOG_REQNAM2: : : Entry point | 
18 68 20 €1 OSEC 1539 BBC #FALSV_LOG_NAM,(R8),10$ ; Branch if logging disabled 
OSFO 1540 $FAO_S- ; Format the message ; 
O5F0 136) CTRSTR=W“FALLS$Q_REQNAM2-; Address of FAO control string 
OSFO 1 4g OUTLEN=W“FALSGW_PRILENI-; Address to receive string length 
OSFO 154 OUTBUF=W*FALSGQ_PRIBUF1-; Address of buffer descriptor : 
OSFO 1544 P1=R ; Address of filespec string descriptor 
0605 1545 SCHECK_STATUS ; Check status code 
FEOA 30 0608 1546 BSBW FALSPRINT_FAO ; Print message 
05 0608 1547 10$: : Exit 
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AL_LOGGING ROUTINES 16-SEP-1984 01:44:38 VAX/VMS Macro v04-00 Page 33 | 
FALSLOG_RESNAM, FALS$LOG_CLSMSG “SEP-1984 01:17:06 CFAL.SRCJFALLOGGER.MAR; 1 (10) | vO 
60¢ 138 = .SBTTL FALSLOG_RESNAM, FALSLOG_CLSMSG | 
? : 1381 ; Write resultant file Name message to the print file. | 
SEY rassoe peg ie na 
a 38 g Entr oin | 
35 68 20 1 060C 1555 BBC ty hag LOG_NAM, (R8),10$ ; Branch if logging disabled | 
50 0297 CB «9A «(0610 «1556 MOVZBL FAL L_RAM+RAMSB_RSL (RB) , RO ; Get resultant string Length | 
51. 0298 C8 DO 0615 1557 MOVL As NAM+NAMSL_RSA(RB),R1_; Get resultant sgring address 
OA 6 OB €1 OQ61A 1558 BBC WFALSO_NEWNAM,(R8),5$ ; Branch if not the 2nd (new) Name 
61E 1559 ;__message of rename operation 
50 0823 ce 9A o}h 1560 MOVZBL FALSL_NAM sane onan inayat ; Get new resultant string length 
51 54 C€ DO 06 1561 OVL FALSL_NAM2+NAMSL_RSA(RB),R1 ; Get new resultant string address 
06 8 1308 5$: $FAO_S- ; Format the message 
06 156 CTRSTR=W*FALLS$Q_RESNAM- ; Address of FAO control string 
0628 1564 OUTLEN=W*FALSGW_PRTLEN1=; Address to receive string length 
0628 1565 OUTBUF=W*FAL$GQ_PRTIBUF1-; Address of buffer descriptor 
0628 1566 P1=RO0- ; Resultant string Length 
0628 1567 P2=R1 ; Resultant string address 
063F 1568 SCHECK_STATUS ; Check status code 
FDDO §=©30 bose 1382 BSBW FALSPRINT_FAO ; Print message 
05 0645 1570 10$: RSB ; Exit 
0646 1571 
0646 1376 p++ 
beee 132? ; Write file close message with selected FOP options to the print file. 
0646 1575 ; Inputs: | 
0646 1576 ; RO FOP field of the FAB 
0646 1577 ;-- 
0646 1578 
0646 1579 FALSLOG_CLSMSG:: 3; Entry point 
0646 1580 
0646 1381 ASSUME FABS$V_SPL+1 EQ FABSV_SCF 
Boee 1386 ASSUME FABSV_SCF+1 EQ FABSV_DLT 
26 68 20 £1 0646 1584 BBC #FALSV_LOG_NAM,(R8),10$ ; Branch if Logan disabled 
51 51 03 OD EF 064A 1585 EXTZV #FABSV_SPL,#3,R1,R1 ; Extract DLT!SCF!ISPL bits 
51 O848'°CF41 7E OQ64F 1586 MOVAQ W*FALLSQ_FOP_OPTERII,R1 3; Get appropriate counted string | 
0655 1587 $FAO_S- ; Format the message 
0655 1288 CTRSTR=W*FALL$Q_CLOSE- ; Address of FAO control string 
0655 1589 OUTLEN=W*FAL$GW_PRTLENI-; Address to receive string length 
0655 1590 OUTBUF=W*FAL$GQ_PRTIBUF1-; Address of buffer descriptor 
0655 1591 P1=R ; Address of counted string 
been 1236 SCHECK_STATUS ; Check status code 
FDAS 30 066D 159 BSBW FALSPRINT_FAO ; Print message 
05 0670 1594 10$: RS : Exit 
0671 1595 
0671 1596 - END ; End of module 
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o V04-00 Page 76 
ALLOGGER.MAR; 1 (10) 


FALL$Q_FOP_OPT 09 848 a 1 
FALL$Q_LOGAST FSR 1 
FALL$Q_LOGMSG 000079F R 1 
FALLS$Q_LOGMSG2 0 Ite & 1 
FALL$Q_LOGQ10 707 R 1 
FALL$Q_MBXNAM 1% R 4 
F ALL$Q"REQNAM 5 R 1 
FALL$Q~REQNAM2 00002D6 R 01 
FALL$Q~RESNAM Q0002F1 R 01 
FALL$Q"STAT1 0000427 R Or | 
FALLSO7STAT 0 388 : | 
FALLSQ_STAT4 $0008 7R 6} | 
FALL$Q_STATS 9000081 8 01 
FALL$Q_STAT6 0000607 R 01 
FALL$S_PRTNAM = O00 0004 
FALL$T_ACCFUNC 00000888 R 01 
FALLST_MS 00000844 R 01 
FALL$T_PRTNAM 000000A8 R 01 
FALL S$W_PERL INE 00000140 R 01 
FALL$W_PER 0000013C R 01 
FUNCTION CODE = aie stg 
GET_FUNCTION QOOOOSIE R 03 
JP1$_BuFIO = 0000040C 
JPIS_CPUTIM = 00000407 
JPI$_DIRIO = 00000408 
JPI$_WSPEAK = 00000201 
LIBSCvT_DTB eeeeeeee =X 03 
LIBSCVT_HTB eereeeee = =X 03 
NAM$B_RSL = 00000003 

SL_ = 00000004 
PARSE _N BORO R 03 
PERCERTAGE Q000003F8 R 03 
PROCESS_PARAMETER OOOOO0SE R 03 
PROCESS QUALIFIER i444 2 R 03 
RABSB_RA = 000 OO1E 
RABSC_BID = 00000001 
RABS$C_BLN = 00000044 
RABSC_SEQ = si is it 
RABSL_CT = 444d 
RABSL_RBF = 00000 ¢ 

$L_ = 444 4 
RABSW-RSZ = 90000022 | 
RESPONSE CODE = 000 
RMS$_BUSY = 0001848C 
yt RSA = 1 oer | 
SPACE = §0000030 | 
SYSSFAO ereereee x 
SYS$F AOL tereneee GX 
SYSSNUMTIM eereeeee GX 
SYSSPUT eeeeenee GX | 
TAB = 00 9 
UNDERSCORE = Spo obbsE 
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PSECT name Allocation PSECT No. Attributes 

» OS « 00000000 < 0.) 69 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
FALSDATA_LOGGER QOOO00A10 ¢ 637 ») QO1¢ +1.) NOPIC USR CON REL LCL SHR NOEXE’ RD WRT NOVEC QUAD 
SABSS poo se ay ( 8192.) B ( ¢°} NOPIC USR CON ABS LCL NOS XE RD WRT NOVEC BYTE 
FALSCODE_LOGGER 00000671 ( 1649.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
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Elapsed Time 


Initialization 29 00:00:08 -07 00:00:01 36 
Command processing 113 00:00:00.37 Se Bd 

Pass 1 449 ie SC 14 00:00:43.61 
Symbol table sort 0 4 So 8 ee Be at 
Pass 2 30 0:00:03.60 00:00:12.87 
Symbol table output 3 00:00:00.20 00:00:00.51 
Psect synopsis output 00:00:00.02 00:00:00.02 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 934 00:00:18.21 00:01:08.23 


The working set Limit was 1950 pages. ‘ 

111489 bytes (218 pages) of virtual memory were used to buffer the intermediate code. 

There were 80 pages of symbol table space allocated to hold 1359 non-local and 106 local symbols. 
source Lines were read in Pass 1, progye ing object records in Pass 2. 

39 pages of virtual memory were used to define 52 macros. 
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Macro Library name 


-$255$DUA28: CFAL.OBJJFAL.MLB; 1 10 
$255$DUA28: CSYSLIBISTARLET.MLB;2 19 
TOTALS (all Libraries) 29 
1718 GETS were required to define 29 macros. 
There were no errors, warnings or information messages. 
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